perm filename E.DIF[E,ALS]1 blob
sn#138472 filedate 1975-01-04 generic text, type T, neo UTF8
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 1,1
******** E.20[CSP,SYS] **** PAGE 1 LINE 1
1) COMMENT ⊗ VALID 00233 PAGES
1) C REC PAGE DESCRIPTION
1) C00001 00001
1) C00019 00002 E -- DISPLAY EDITOR FOR STANFORD
1) C00027 00003 RIGHT HALF FLAGS
1) C00030 00004 CHARACTER TABLE FLAGS
1) C00033 00005 DD←←20000 RUNNING ON DATA DISK
1) C00034 00006 ESINIT, GETCHR, FSFIX, TSTSHF, CW, LEG, UUOS, XOPDEF, PURE, IMPURE
1) C00044 00007 BEG, BEGSYS, BEGACT, BEGRPT, BEGDBG
1) C00047 00008 BEGRPG
1) C00049 00009 BEG0, BEG1, BEG1A, BEG2, BEGBKP
1) C00053 00010 BEG3,BEG4
1) C00056 00011 MAIN, FNF, FNF2
1) C00058 00012 CMDIN, CMDLUP, CMDEX, CMDX, CMDX2
1) C00060 00013 CMDED, CMDRD, CMDRD2, MINUS, PLUS, NUMS, INFIN, ALTSET
1) C00062 00014 CMDERR, ERR, POPJ1, EXTNUL, CPOPJ, CBTAB, ICHTAB, ILLRDO, ILLDIR, ILLMES, ILLMS2, ERRX, ILLBK
1) C00064 00015 INIT, INIT0, INIT1, INI1, IOBARF
1) C00068 00016 CMDSP
1) C00071 00017 XCMDS, XDISP, MCMDS, MDISP
1) C00073 00018 EXTEND, EXTEN1, EXTL0, EXTL, EXTL1, EXTL2, EXTL3
1) C00075 00019 EXTLK0, EXTLK, EXTAMB, EXTNUL, EXTNF, EXTAM2, EXTBUF, EXTBFE
1) C00077 00020 READON, ROSET, READWR, NORDWR, CANCEL, SNKOFF, SNKON, DPYALW, DPYSKI, NORDOW
1) C00079 00021 DDTGO, R, DRAW, DRAWX, PPSET, LINCNT
1) C00081 00022 GETOUT, GETOU1, FINISH, FINI1, FINI2, GORPG, QUIT, CLOSIT, GODRD
1) C00084 00023 NEWPAG, NEWPG, NEWPG0, NEWPG1, REREAD, PGINIT, NODEL, PGERR, FINSRT
1) C00088 00024 UNWIND, WIND, WIND1, LT, GT, LTE, GTE, TOP, BOT, JMP, UPARR, DWNARR
1) C00090 00025 XMARK--The `M' commands.
1) C00101 00026 DELLIN, DELPOS
1) C00103 00027 DELLP, DELL2
1) C00105 00028 DELPM, DELPM1, DELPM2, DELPM3
1) C00107 00029 DELPAG, DELPG1, ADJPG, ADJPGL
1) C00109 00030 RCOMP, RCOMP1, RCOMP2, RCOMPX
1) C00110 00031 DELETE, DELET1, ADDPAG
1) C00112 00032 APPEND, APPLUZ
1) C00114 00033 APPEN2, PMTXT, PMPAG
1) C00116 00034 INSERT
1) C00117 00035 INSER1, INSER2, INSER3, INSER4, INSER5
1) C00118 00036 INSER8, DIRADD
1) C00120 00037 INSER6, INSER7, MARK
1) C00121 00038 CONTQ
1) C00123 00039 ATTACH, ATTCH1, ARGCHK, ARGCHN
1) C00125 00040 ATTDO, ATTDO0, ATTDO2, ATTDO1
1) C00127 00041 ATTREP, ATTEX
1) C00129 00042 ATTKIL, ATTKL, ATTSRC, GPAGL, GPAGL0, GPAGL1, GPAGL2, GPAGL3, ATTWRT
1) C00131 00043 ATTCOP, ATTCP1, ATTCP
1) C00132 00044 ATTCP0, ATTCPL, ATCMOR, ATTCP2, ATTCP3, GPAGL
1) C00134 00045 EDIT, EDIT1, LINED, LINL1, EDDSP, EDARG, EDARGX
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 1,1
1) C00136 00046 EDFULL, EDTAB, EDNUL, EDCR, AGAIN, EDRP1, EDRPT
1) C00138 00047 EDGL, EDGL1, EDGL2, EDGL2A
1) C00141 00048 EDGL3, EDGL4, REEDIT, EDTMOR, EDGDSP, EDTAB2, PTOUT, PTPNT
1) C00144 00049 EDCR2, EDACT, EDITIT, REPLIN, PUTBAK
1) C00147 00050 EDPUT, EDPLR
1) C00149 00051 EDPS, EDPL, EDPLUZ
1) C00150 00052 EDSNK, EDSNK2, EDSNK3, ESDSP, ESALT
1) C00151 00053 CRDSP, REGCR, REGCR1, REGCR2
1) C00152 00054 CONTCR, CNTCR2, METACR, REPRST, REPRS2
1) C00154 00055 LECR, DUBLCR, DUBCR2
1) C00156 00056 INSONA, INSONE, INSNUL, INSNLP
1) C00158 00057 LININS, LINSLP, LINS1, LINGLP, LIDSP, LINTAB
1) C00160 00058 LINCR1, LINCR, LICCR, LINALT, LINCOM
1) C00161 00059 LINSTO, LINST1
1) C00163 00060 SETWRT, SETWR2, SETWRX, BTAB, BUF, RBUF
1) C00164 00061 FRD, FRD0, FRD1, NOEXT, NOPRG, NOPPN, NOSWIT, SWITL
1) C00167 00062 SETDEV, GETNAM, GETNML, GETP, GETPL, DTYI1, DTYI, DTYI2
1) C00169 00063 DOSWIT, NTYI, NTYIL, NTYIM, EDFIL, EDFIL2, SRCFIL, DSTFIL
1) C00171 00064 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
1) C00175 00065 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
1) C00177 00066 RSTYI, TYI1, TYI2, TYI3, TYIX, TYI4
1) C00179 00067 TYI, TYIT, TYIU
1) C00180 00068 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
1) C00186 00069 TMPWRT, BKPWRT
1) C00189 00070 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
1) C00191 00071 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
1) C00192 00072 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
1) C00194 00073 UTYPR, UTYPR1, USORRY, UFATAL
1) C00195 00074 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
1) C00199 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2
1) C00202 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
1) C00204 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
1) C00206 00078 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
1) C00207 00079 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV
1) C00210 00080 FSINI, FSINI1, MORCOR
1) C00213 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
1) C00214 00082 FSNEWT, FSNEWP, FSNEW
1) C00215 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
1) C00217 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
1) C00219 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
1) C00221 00086 FSBLT, POPTJ, FSBLT1
1) C00222 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
1) C00223 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
1) C00225 00089 FSGIVE, FSGIV1, FSGIV2
1) C00226 00090 CORCHK, CRUNCH, CMPACT
1) C00228 00091 ENDSET, ENDFIX
1) C00229 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
1) C00231 00093 FUCHK, MOVIT, MOVTX
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 1,1
1) C00232 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
1) C00234 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
1) C00237 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
1) C00239 00097 SAVIT
1) C00240 00098 CHECK, CHECK1, CHECK2
1) C00241 00099 CHKDIR, CHKDPL
1) C00243 00100
1) C00245 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
1) C00246 00102 CHKPAG, CHKPGP
1) C00247 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
1) C00249 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
1) C00250 00105 CHKATT, CHKNAT
1) C00251 00106 CTAB 0-37
1) C00255 00107 CTAB 40-77
1) C00257 00108 CTAB 100-137
1) C00259 00109 CTAB 140-177
1) C00261 00110 GETDIR
1) C00262 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
1) C00264 00112 DIRLIN, DIRLUP, DIRDON
1) C00266 00113 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
1) C00269 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
1) C00271 00115 COPCOR, COPCHK, YESCHK, COPCMD
1) C00272 00116 FORMAT, FMTOK, FMTDSP
1) C00273 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
1) C00274 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
1) C00276 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
1) C00278 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
1) C00280 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX
1) C00282 00122 CREATE, CREAT2, CTEXT
1) C00284 00123 RDPAGE, RDPGOK, RDSPAG, RDPAG0
1) C00286 00124 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
1) C00288 00125 RDLCR, RDLLF, NUMSTR
1) C00290 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
1) C00292 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
1) C00293 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
1) C00295 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
1) C00296 00130 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
1) C00298 00131 DIRGET, DIRGL, DGEND, DRGSET
1) C00300 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
1) C00302 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
1) C00304 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
1) C00306 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
1) C00308 00136 IDNUL, IDDON, IDDONS
1) C00310 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
1) C00311 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
1) C00313 00139 DISPLAY DATA STORAGE
1) C00315 00140 MORE DISPLAY STORAGE
1) C00316 00141 HEADERS & TRAILERS
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 1,1
1) C00317 00142 DPYINI, DPYCHK
1) C00320 00143 DPYI2, NODPY, WIPE, IWIPE
1) C00322 00144 SETSCR, NMVARR, MOVARR, SETARR
1) C00324 00145 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
1) C00326 00146 DISP, DISP0, DISP1, DISP2
1) C00328 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
1) C00330 00148 DISPAT, DISPAX
1) C00331 00149 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
1) C00333 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
1) C00334 00151 IIIARR, IIIAR2, IIIAR3
1) C00336 00152 LESET, LEADJ, LECLR
1) C00337 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
1) C00339 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
1) C00340 00155 DDISP, DDISP2
1) C00341 00156 DOARR, DOAR2, OFFARR, ONARR
1) C00342 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
1) C00344 00158 DSPSAT, DSPSAX
1) C00345 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
1) C00347 00160 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
1) C00349 00161 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
1) C00350 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
1) C00352 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
1) C00353 00164 WRPX3, WRPX4
1) C00354 00165 WRPOK, WRTIT, WRT0
1) C00355 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
1) C00357 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
1) C00359 00168 WRPM, BTAB2
1) C00361 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
1) C00362 00170 TV, RSYS, RUN, RUN1
1) C00365 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
1) C00366 00172 SEARCH ROUTINES
1) C00367 00173 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
1) C00369 00174 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT
1) C00371 00175 FINDIT, FOUND, FNDMOV, FNDERR
1) C00373 00176 FIND
1) C00375 00177 DIRSRC, DFERR, SRCDF, SDFCR
1) C00377 00178 SSET, SSET2
1) C00378 00179 SCOMP, SCOMPX, SCOMPR
1) C00380 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
1) C00382 00181 SPARSE
1) C00383 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
1) C00385 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
1) C00387 00184 SSCLP, SSCDSP
1) C00388 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
1) C00390 00186 SGNOT
1) C00391 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
1) C00393 00188 SBBRCH, SBBR2
1) C00394 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 1,1
1) C00395 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
1) C00397 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
1) C00399 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
1) C00401 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
1) C00402 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
1) C00404 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
1) C00406 00196 SCCOM, SCCNOT
1) C00407 00197 SCCBIT
1) C00408 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
1) C00410 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
1) C00412 00200 SCGEN
1) C00413 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
1) C00415 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
1) C00417 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
1) C00419 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
1) C00421 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
1) C00423 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
1) C00425 00207 SRCPAG, SRCPG1
1) C00427 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
1) C00428 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
1) C00429 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
1) C00430 00211 SRCSET, SRCST1, SRCSTL, SRCST2
1) C00431 00212 SCALL, SRCHX, SRCHLX
1) C00432 00213 SCNBAK, SCNBKL
1) C00434 00214 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
1) C00436 00215 SRCFF, SFFNUL, SGTACS, SRTACS
1) C00437 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
1) C00438 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
1) C00447 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
1) C00450 00219 JUSMAR
1) C00455 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
1) C00458 00221 NXTLIN, NXTLN2, JTAB, NXTBL
1) C00463 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
1) C00467 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
1) C00469 00224 JDFIN
1) C00472 00225 JDFIN2, JSET, JSET2
1) C00474 00226 INDENT,ALINE,CENTER,JLEFT
1) C00477 00227 LEFMAR,SHIFTY
1) C00481 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
1) C00483 00229 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
1) C00485 00230 ZDATA,ZSIX,ZBLT,ZEDFIL,ZLIST,EXIST
1) C00496 00231 LAMBDA,EPSIL,NWFILE,HOME,QUERY
1) C00503 00232 PDL, PATCH, PAT, ZVARS, LEGTAB
1) C00505 00233
1) C00506 ENDMK
1) C⊗;
*** E[CSP,SYS] *** PAGE 1 LINE 1
2) COMMENT ⊗ VALID 00234 PAGES
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 1,1
2) C REC PAGE DESCRIPTION
2) C00001 00001
2) C00020 00002 E -- DISPLAY EDITOR FOR STANFORD
2) C00028 00003 RIGHT HALF FLAGS
2) C00031 00004 CHARACTER TABLE FLAGS
2) C00034 00005 DD←←20000 RUNNING ON DATA DISK
2) C00035 00006 ESINIT, GETCHR, FSFIX, TSTSHF, CW, LEG, UUOS, XOPDEF, PURE, IMPURE
2) C00045 00007 BEG, BEGSYS, BEGACT, BEGRPT, BEGDBG
2) C00048 00008 BEGRPG
2) C00050 00009 BEG0, BEG1, BEG1A, BEG2, BEGBKP
2) C00054 00010 BEG3,BEG4
2) C00057 00011 MAIN, FNF, FNF2
2) C00059 00012 CMDIN, CMDLUP, CMDEX, CMDX, CMDX2
2) C00061 00013 CMDED, CMDRD, CMDRD2, MINUS, PLUS, NUMS, INFIN, ALTSET
2) C00063 00014 CMDERR, ERR, POPJ1, EXTNUL, CPOPJ, CBTAB, ICHTAB, ILLRDO, ILLDIR, ILLMES, ILLMS2, ERRX, ILLBK
2) C00065 00015 INIT, INIT0, INIT1, INI1, IOBARF
2) C00069 00016 CMDSP
2) C00072 00017 XCMDS, XDISP, MCMDS, MDISP
2) C00074 00018 EXTEND, EXTEN1, EXTL0, EXTL, EXTL1, EXTL2, EXTL3
2) C00076 00019 EXTLK0, EXTLK, EXTAMB, EXTNUL, EXTNF, EXTAM2, EXTBUF, EXTBFE
2) C00078 00020 READON, ROSET, READWR, NORDWR, CANCEL, SNKOFF, SNKON, DPYALW, DPYSKI, NORDOW
2) C00080 00021 DDTGO, R, DRAW, DRAWX, PPSET, LINCNT
2) C00082 00022 GETOUT, GETOU1, FINISH, FINI1, FINI2, GORPG, QUIT, CLOSIT, GODRD
2) C00085 00023 NEWPAG, NEWPG, NEWPG0, NEWPG1, REREAD, PGINIT, NODEL, PGERR, FINSRT
2) C00089 00024 UNWIND, WIND, WIND1, LT, GT, LTE, GTE, TOP, BOT, JMP, UPARR, DWNARR
2) C00091 00025 XMARK--The `M' commands.
2) C00102 00026 DELLIN, DELPOS
2) C00104 00027 DELLP, DELL2
2) C00106 00028 DELPM, DELPM1, DELPM2, DELPM3
2) C00108 00029 DELPAG, DELPG1, ADJPG, ADJPGL
2) C00110 00030 RCOMP, RCOMP1, RCOMP2, RCOMPX
2) C00111 00031 DELETE, DELET1, ADDPAG
2) C00113 00032 APPEND, APPLUZ
2) C00115 00033 APPEN2, PMTXT, PMPAG
2) C00117 00034 INSERT
2) C00118 00035 INSER1, INSER2, INSER3, INSER4, INSER5
2) C00119 00036 INSER8, DIRADD
2) C00121 00037 INSER6, INSER7, MARK
2) C00122 00038 CONTQ
2) C00124 00039 ATTACH, ATTCH1, ARGCHK, ARGCHN
2) C00126 00040 ATTDO, ATTDO0, ATTDO2, ATTDO1
2) C00128 00041 ATTREP, ATTEX
2) C00130 00042 ATTKIL, ATTKL, ATTSRC, GPAGL, GPAGL0, GPAGL1, GPAGL2, GPAGL3, ATTWRT
2) C00132 00043 ATTCOP, ATTCP1, ATTCP
2) C00133 00044 ATTCP0, ATTCPL, ATCMOR, ATTCP2, ATTCP3, GPAGL
2) C00135 00045 EDIT, EDIT1, LINED, LINL1, EDDSP, EDARG, EDARGX
2) C00137 00046 EDFULL, EDTAB, EDNUL, EDCR, AGAIN, EDRP1, EDRPT
2) C00139 00047 EDGL, EDGL1, EDGL2, EDGL2A
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 1,1
2) C00142 00048 EDGL3, EDGL4, REEDIT, EDTMOR, EDGDSP, EDTAB2, PTOUT, PTPNT
2) C00145 00049 EDCR2, EDACT, EDITIT, REPLIN, PUTBAK
2) C00148 00050 EDPUT, EDPLR
2) C00150 00051 EDPS, EDPL, EDPLUZ
2) C00151 00052 EDSNK, EDSNK2, EDSNK3, ESDSP, ESALT
2) C00152 00053 CRDSP, REGCR, REGCR1, REGCR2
2) C00153 00054 CONTCR, CNTCR2, METACR, REPRST, REPRS2
2) C00155 00055 LECR, DUBLCR, DUBCR2
2) C00157 00056 INSONA, INSONE, INSNUL, INSNLP
2) C00159 00057 LININS, LINSLP, LINS1, LINGLP, LIDSP, LINTAB
2) C00161 00058 LINCR1, LINCR, LICCR, LINALT, LINCOM
2) C00162 00059 LINSTO, LINST1
2) C00164 00060 SETWRT, SETWR2, SETWRX, BTAB, BUF, RBUF
2) C00165 00061 FRD, FRD0, FRD1, NOEXT, NOPRG, NOPPN, NOSWIT, SWITL
2) C00168 00062 SETDEV, GETNAM, GETNML, GETP, GETPL, DTYI1, DTYI, DTYI2
2) C00170 00063 DOSWIT, NTYI, NTYIL, NTYIM, EDFIL, EDFIL2, SRCFIL, DSTFIL
2) C00172 00064 RSCAN, RSCAN0, RSCAN1, RSCAN2, RSCAN3, RSCAN4, RSCN4B, RSCN4C, RSCN4A, RSCN0A
2) C00176 00065 RSCAN5, RSCAN6, RSCAN7, RSCAN8, SYSCCK, CRECHK
2) C00178 00066 RSTYI, TYI1, TYI2, TYI3, TYIX, TYI4
2) C00180 00067 TYI, TYIT, TYIU
2) C00181 00068 TMPRED, TMPRD1, TMPRD2, TMPRDX, RPGRD1, BKPRED
2) C00187 00069 TMPWRT, BKPWRT
2) C00190 00070 FILERR, FILTYP, FILSTR, PPNTYP, FILETB
2) C00192 00071 SIXTYO, SIXTYL, SIXTY2, SIXTYN, SIXTNL, SIXTNN, PNTYO, PNTYOL
2) C00193 00072 UUOH, UUODSP, UFCE, UTYPCH, UTYPC2, UTYPDE, UTYPOC
2) C00195 00073 UTYPR, UTYPR1, USORRY, UFATAL
2) C00196 00074 OPENI, OPNOI, IOPEN, SETI, SETRLD, OPNDEV, RELDEV, OPNLUZ
2) C00200 00075 RLD, RLD1, RLD2, RLDX, RLDLUZ, FIXEOF, ENTLUZ, ENTL2
2) C00203 00076 EXTCHK, EXTCH1, EXTCH2, EXTCH3, EXTCH4, EXTTAB
2) C00205 00077 OPENW, OPENO, SETO, FPAUSE, PAUSE, PAUS2
2) C00207 00078 CLOSO, WRBUF, WRBF1, WRBF2, ENTR, OBUF
2) C00208 00079 MORCOR, INTLUZ, INTDSP, PDLOV, PDLOV1, PDLOV2, PDLOV3, ISAV
2) C00211 00080 FSINI, FSINI1, MORCOR
2) C00214 00081 FSGET, FSLUP0, FSLUP, FSGRAB, FSXIT
2) C00215 00082 FSNEWT, FSNEWP, FSNEW
2) C00216 00083 FSUSED, FSTSML, FSNEXT, FSHRET, FSLLUZ
2) C00218 00084 FSLSCN, FSLSCL, FSLFR, FSLSHF, FSLSLP, FSLMOV, FSLDON
2) C00220 00085 FSHSCN, FSHSCL, FSHFR, FSHSHF, FSHSLP, FSHSR, FSHMOV
2) C00222 00086 FSBLT, POPTJ, FSBLT1
2) C00223 00087 FSBLT2, FSBLT3, FSHBLT, FSHBL2
2) C00224 00088 PNTREL, SHFTB, STDSH1, STDSHF, RELOC, RELOCL
2) C00226 00089 FSGIVE, FSGIV1, FSGIV2
2) C00227 00090 CORCHK, CRUNCH, CMPACT
2) C00229 00091 ENDSET, ENDFIX
2) C00230 00092 FSCHK, FCLUP1, FCLUP2, FCFR, FCDON
2) C00232 00093 FUCHK, MOVIT, MOVTX
2) C00233 00094 PURINI, PLCHK, PL2CHK, PLCHKL, PLSCN0, PLSCN, PLSCN1, PLSCN2, PLSCN3
2) C00235 00095 PURCHK, PURCH1, PURCH2, PURCH3, PURC3A
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 1,1
2) C00238 00096 PURCH4, PURCH5, PURCH6, PURCH7, PURCLC, TYPHW, PURCK, PLCHK1, PLCHK2, PURFLG
2) C00240 00097 SAVIT
2) C00241 00098 CHECK, CHECK1, CHECK2
2) C00242 00099 CHKDIR, CHKDPL
2) C00244 00100
2) C00246 00101 CHKLST, CHKFS, CHKFSL, CHKFS2, CHKPNT, CHKPN2
2) C00247 00102 CHKPAG, CHKPGP
2) C00248 00103 CHKPG1, CHKPG2, CPDSP, CHKPGT, CHKPTL
2) C00250 00104 CHKPG3, CHKPG4, CHKPG5, CHKPG6
2) C00251 00105 CHKATT, CHKNAT
2) C00252 00106 CTAB 0-37
2) C00256 00107 CTAB 40-77
2) C00258 00108 CTAB 100-137
2) C00260 00109 CTAB 140-177
2) C00262 00110 GETDIR
2) C00263 00111 DIRCL2, DIRCL, DIRCL1, GETDR1
2) C00265 00112 DIRLIN, DIRLUP, DIRDON
2) C00267 00113 LOSDIR, BADDIR, NODIR, DIRNUM, GDDSP, LSKP1, DIRSHF, DIREND
2) C00270 00114 COPFIL, COPFL1, COPDO, COPYX, COPDAT, COPLUP
2) C00272 00115 COPCOR, COPCHK, YESCHK, COPCMD
2) C00273 00116 FORMAT, FMTOK, FMTDSP
2) C00274 00117 NEWDIR, NEWDLP, SKPDSP, NEWDFF, OPUT, OSET, TMPDIR
2) C00275 00118 MAKDIR, MAKDR0, MAKDR1, MAKDOL, MDOL1
2) C00277 00119 MDIL1, MDIL1A, MDIL2, MDIL2A, MDCSRC, MDCSR1, MD1DSP
2) C00279 00120 MDIL1B, MAKDLF, MAKDFF, MDFF2, MDFF3, MDCEOL, MD2DSP
2) C00281 00121 MD1CR, MD2CR, MD3CR, MD3CR1, MDIL3, MDCRCK, MDFIX
2) C00283 00122 CREATE, CREAT2, CTEXT
2) C00285 00123 RDPAGE, RDPGOK, RDSPAG, RDPAG0
2) C00287 00124 RDPAG2, RDPAG1, RDLINE, RDLLP, RDLTAB
2) C00289 00125 RDLCR, RDLLF, NUMSTR
2) C00291 00126 RDLFF, RDLDON, LINSET, RPDSP, RDLNUL
2) C00293 00127 RDPGLZ, SOSTST, SOSCHK, SOSCK2, PGMK, PGMK2
2) C00294 00128 DIRCHK, DIRNEW, DIRNW2, DIRNW1, TXTSHF
2) C00296 00129 FNDLIN, FNDPAG, FNDLN1, FNDLN2, FNDLN3
2) C00297 00130 REMPTR, FIXPTR, FNDPT1, FNDPT2, LPTRTB, DPTRTB
2) C00299 00131 DIRGET, DIRGL, DGEND, DRGSET
2) C00301 00132 NUM5, NUM5A, DIRHED, DIRTXT, DIREMK, DGDSP
2) C00303 00133 OUTDIR, OUTDOK, OUTDLP, ODDSP, ODDON, ODEXP
2) C00305 00134 INSDIR, DCLP1, DCLP2, DCNG, INSDL
2) C00307 00135 IDDSP0, IDDSP, IDTAB, INSD3, INSD4, SCOMS, SCOMS2
2) C00309 00136 IDNUL, IDDON, IDDONS
2) C00311 00137 DIRSET, DIRST1, DIRUP, DIRUP1, DIRUP2, DIRUP3
2) C00312 00138 DIRFIX, DIRFX1, DIRFX2, DIRFX3, DIRFX4, DIRFXN
2) C00314 00139 DISPLAY DATA STORAGE
2) C00316 00140 MORE DISPLAY STORAGE
2) C00317 00141 HEADERS & TRAILERS
2) C00318 00142 DPYINI, DPYCHK
2) C00321 00143 DPYI2, NODPY, WIPE, IWIPE
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 1,1
2) C00323 00144 SETSCR, NMVARR, MOVARR, SETARR
2) C00325 00145 ARRBOT, ARRTOP, SETWIN, WINCHK, WINCH2
2) C00327 00146 DISP, DISP0, DISP1, DISP2
2) C00329 00147 DISP3, DISP4, DISP5, DUMMY, EXCLR, EXSET,EXTST
2) C00331 00148 DISPAT, DISPAX
2) C00332 00149 DWNWIN, REWIN, DDISPX, DDSPX2, DDDONE, WIPIT, WIPL, WIPL2
2) C00334 00150 DDCOP, DDLUZ, LINREL, LINRLL, IDISP, IDISP2
2) C00335 00151 IIIARR, IIIAR2, IIIAR3
2) C00337 00152 LESET, LEADJ, LECLR
2) C00338 00153 DBLT, DBLT1, DBLT2, DBLT3, IDISPX, DISPX, PPBAJ1, POPBAJ, POPAJ
2) C00340 00154 PCOMPD, PCOMPI, PCOMPS, P2CMPD, P2CMPI
2) C00341 00155 DDISP, DDISP2
2) C00342 00156 DOARR, DOAR2, OFFARR, ONARR
2) C00343 00157 DDISPS, DDSPS2, DDSPS3, DDSPSX, DDSPS4
2) C00345 00158 DSPSAT, DSPSAX
2) C00346 00159 DBLTS, DBLTS2, DBLTSN, DBLTS3, DBLTS1, DBLTSA, DBLTA, DBLTA2
2) C00348 00160 TDISP, TDISP1, TDISP2, TDSP2A, TDISPX
2) C00350 00161 TDISPC, TDISP3, TDISP4, TDISP5, TYPE, TYPEL
2) C00351 00162 WRPAGE, WRPAG1, WRPAG2, WRBOOK
2) C00353 00163 WRPX0, WRPX, WRPX1, WRPX1A, WRPX1B, WRPX2
2) C00354 00164 WRPX3, WRPX4
2) C00355 00165 WRPOK, WRTIT, WRT0
2) C00356 00166 WRP1, WRLINE, WRLUP, WRLP2, WRRDO, WRRDO2, WRRDO3
2) C00358 00167 WRDSP, WRTAB, WRCHK, WRDONE, WRDON2
2) C00360 00168 WRPM, BTAB2
2) C00362 00169 FLSPAG, FLSPGL, FLSPG2, CLRWRT, CLRWR2
2) C00363 00170 TV, RSYS, RUN, RUN1
2) C00366 00171 RUNILL, RUNNON, RUNFNF, RUNDEV, RUNFIL
2) C00367 00172 SEARCH ROUTINES
2) C00368 00173 SREAD, SREAD1, SREAD2, SREAD3, SREAD4, SRSTOR, SRSTR2
2) C00370 00174 SRACT, SREAD5, SRALT, SRALT2, SRALUZ, SREDT
2) C00372 00175 FINDIT, FOUND, FNDMOV, FNDERR
2) C00374 00176 FIND
2) C00376 00177 DIRSRC, DFERR, SRCDF, SDFCR
2) C00378 00178 SSET, SSET2
2) C00379 00179 SCOMP, SCOMPX, SCOMPR
2) C00381 00180 SBARF, SBARF1, SARRGH, SFSGT, SFSGET, SFSPUT, SFSPTL
2) C00383 00181 SPARSE
2) C00384 00182 SPARS1, SPARS2, SPDSP, SSCAN, SSCANA, SSCANX
2) C00386 00183 SSCAN1, SSCN1A, SSCN1B, SSCQT, SSCBIN, SSCINF, SSCNOT, SSCUOP, SSCVB
2) C00388 00184 SSCLP, SSCDSP
2) C00389 00185 SGRAPH, SGRPH1, SGRPH2, SGRPHX, SGDO1, SGDO1X, SGDOX2, SGDSP, SGDO1B
2) C00391 00186 SGNOT
2) C00392 00187 SBACK, SBACK1, SBACK2, SBACK3, SBACK4
2) C00394 00188 SBBRCH, SBBR2
2) C00395 00189 SBCALC, SBCAL0, SBCAL1, SBCAL2, SBCAL3
2) C00396 00190 SBCAL4, SBCNON, SBCX, SBCOPL, SBCOP2, SBCEND, SBCEN2, SBCFIX, SBCFXL, SBCFXE, POPJ2
2) C00398 00191 SBCOK, SBCEN1, SBCLUZ, SBCLZ1, SBCNXT, SBCBP, SBCBPL
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 1,1
2) C00400 00192 SBCCB, SBCCB1, SBCCB2, SBCCB8, SBCCB3, SBCCB4, SBCCB5
2) C00402 00193 SBCCB6, SBCCB7, BITCNT, BITCN1
2) C00403 00194 NEWBIT, NEWBT0, NEWBT1, NEWBT2, NEWBT3, NEWBT4, NEWBT5
2) C00405 00195 NEWBTC, NEWBC1, NEWBC2, NEWBC3, NEWBNC, NEWBN1, NEWBN2, NEWBN3, NEWBCZ, NEWBNZ
2) C00407 00196 SCCOM, SCCNOT
2) C00408 00197 SCCBIT
2) C00409 00198 MAKBIT, MAKBT0, MAKBT1, MAKBTN, MAKBN2, MAKBTB, MAKBB3
2) C00411 00199 MAKBNB, MAKBBT, MAKBB2, MBDSP, MBIND, MBIND2
2) C00413 00200 SCGEN
2) C00414 00201 SCGEN1, SCGEN2, SCGEN3, SCGEN4, SCGEN5, SCGEN6
2) C00416 00202 SCGTST, SCGT2, SCGT3, SCGDSP, SCGCN, SCGCN2, SCGBTN, SCGBT
2) C00418 00203 SCGE, SCGE2, SCGEL, SCGBAK, SCGBK1, SCGBK2, SCGBK3, SCGFA, SCGNC, SCGNFA
2) C00420 00204 SCGHB, SCGHB0, SCGHB5, SCGHB1, SCGHB2, SCGHB3, SCGHB4, SCGHBX, SCGHX2
2) C00422 00205 SCGCB, SCGCB0, SCGCB1, SCGCB2, SCGCB3, SCGCB4, SCGCB5, SCGHCB
2) C00424 00206 SBTMAK, SBTMK1, SBTMK2, SBTMK3, SBTMK4, SCGENB, SCGHB, SSVINS, SCXCT, SBKNW, SBKNWA, SBKDSP
2) C00426 00207 SRCPAG, SRCPG1
2) C00428 00208 GBYTP, GBYTPL, GBTPX, GBPDSP, GBPTAB
2) C00429 00209 SRCPGF, SPFTAB, SPFCR, SPFLUZ
2) C00430 00210 SRCPGB, SPFTAB, SBKNL, SBKNUL
2) C00431 00211 SRCSET, SRCST1, SRCSTL, SRCST2
2) C00432 00212 SCALL, SRCHX, SRCHLX
2) C00433 00213 SCNBAK, SCNBKL
2) C00435 00214 SCONTF, SRCFNP, SRCFNB, SFNB2, SFRETR
2) C00437 00215 SRCFF, SFFNUL, SGTACS, SRTACS
2) C00438 00216 SRCFB, SFBNUL, SBKNB, SBKNB2, SIOERR, SBKNP
2) C00439 00217 JFILL, JUST, JUSTL1, JUSTL2, JDISP
2) C00448 00218 JUSTTB, JUSTSP, JUSTS2, JUSTSL, JUSTS3, JUSTSO, JSTSO2, JULMAR
2) C00451 00219 JUSMAR
2) C00456 00220 JUSTCR, JCRTB, JCR2, JFIX, JPTAB, JATAB
2) C00459 00221 NXTLIN, NXTLN2, JTAB, NXTBL
2) C00465 00222 JDUMP, JDMP2, JDLT, JDL1, JDISP2
2) C00469 00223 JDSP1, JDSP2, JDSP3, JDTAB, JFLUSH
2) C00471 00224 JDFIN
2) C00474 00225 JDFIN2, JSET, JSET2
2) C00476 00226 INDENT,ALINE,CENTER,JLEFT
2) C00479 00227 LEFMAR,SHIFTY
2) C00483 00228 MACRO FREE STORAGE - MFSCLR,GETMFS,FREMFS
2) C00485 00229 MACRO DEFINER INPUT WATCHERS - INCHWL,INCHSL,SNEAKW,INCHRS,etc.: MACTYI
2) C00487 00230 ZDATA,ZSIX,ZBLT,ZEDFIL,ZLIST,EXIST
2) C00498 00231 LAMBDA,EPSIL,NWFILE,HOME,QUERY
2) C00505 00232 ********* BEG OF ESSAY DEFS *********
2) C00514 00233 PDL, PATCH, PAT, ZVARS, LEGTAB
2) C00516 00234
2) C00524 ENDMK
2) C⊗;
******** E.20[CSP,SYS] **** PAGE 2 LINE 8
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 2,2
1) IFE ESSFLG<TITLE EY -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II
1) PRINTS / You are assembling ETV, the Stanford Display Editor (Dec.18 74 version).
*** E[CSP,SYS] *** PAGE 2 LINE 8
2) IFE ESSFLG<TITLE EZ -- DISPLAY EDITOR FOR STANFORD↔SUBTTL FREDERICK H.G. WRIGHT II
2) PRINTS / You are assembling ETV, the Stanford Display Editor (Dec.18 74 version).
******** E.20[CSP,SYS] **** PAGE 2 LINE 13
1) Dec.10 1974. E.16(P424) Dec.14 1974. E.17 DEC.17 1974. E.18
1) EY version put up on Dec.14 1974. Saved as E.17
1) EZ version put up on Dec.17 1974. Saved as E.18
1) This copy was reformatted on Dec.18th with minor changes from E.18.
1) EX version put up on Dec.18 1974. Saved as E.19
1) EY version put up on Jan.3 1975. Saved as E.20
*** E[CSP,SYS] *** PAGE 2 LINE 13
2) Dec.10 1974. E.16(P424) Dec.14 1974. E.17(P431) DEC.17 1974. E.18(P431)
2) Dec.18 1974. E.19(P431)
2) EY version put up on Jan.3 1975. Saved as E.20
******** E.20[CSP,SYS] **** PAGE 6 LINE 77
1) ;********* BEG OF ESSAY DEFS *********
1) ESSAY,<
1) ESINIT: ;INIT ESSAY VARS, ETC.
1) POPJ P,
1) ESSREA: ;LOOK FOR A FILE NAME IN THE NEXT LINES OF TEXT, AND GO TO IT
1) MOVEI D,.ILDB ;INITIALIZE JSP AC FOR READING TEXT
1) MOVEM A,ESSBOS ;SAVE PTR TO CURRENT LINE FOR LOOKING FOR
1) ESRE1: JSP D,(D) ;PICK UP A CHR FROM LINE
1) JRST ESREFF ;END OF PAGE, FAILED TO FIND A SUITABLE FILE
1) CAIE A,"[" ;WE ARE LOOKING FOR WHAT COULD BE MIDDLE OF FILE NAME
1) JRST ESRE1 ;LOSE, TRY AGAIN
1) MOVEI B,"," ;SKIP RETURN IF THERE ARE 1-3 A-Z,a-z,0-9 CHARACTERS IN A
1) PUSHJ P,ESR3CH ;ROW, BROKEN WITH A COMMA
1) JRST ESRE1 ;LOSE, THIS GUY DOESN'T QUALIFY AS A PPN
1) MOVEI B,"]" ;SKIP RETURN IF YOU FIND ANOTHER 1-3 BROKEN BY CLOSE SQUARE
1) PUSHJ P,ESR3CH ;THE OTHER 1-3?
1) JRST ESRE1 ;CLOSE CALL...
1) PUSHJ P,ESBAKB ;BACK OVER THE FILE NAME
1) PUSHJ P,ESREC ;GIVE THIS FILE NAME ETC. TO TTY
1) JRST BEG0.1
1) ESBAKB: OUTSTR [ASCIZ /GOT A LIVE ONE./]
1) MOVEI A,[POPJ P,]
1) MOVEM A,.JBOPC↑
1) JRST DDT↑ ;GO TO DDT
1) ESREFF: JRST EPSIL4 ;FOR NOW ;COULDN'T FIND A FILE NAME ON THIS PAGE
1)
1) ESR3CH: ;SKIP RETURN IF THERE ARE 1 THRU 3 CHRS A-Z,a-z 0-9 STRAIGHT BROKEN BY (B)
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 6,7
1) REPEAT 3,<
1) JSP D,(D) ;CHR
1) CAIN A,(B) ;THE ONLY WEIRD CHARACTER ALLOWED, CALLER SUPPLIED
1) JRST ESR3C1 ;DUN
1) CAIGE A,"0" ;IF YOU ARE BEHIND 0 YOU LOSE FOR SURE
1) POPJ P,
1) CAIL A,":" ;IF BETWEEN : AND @ YOU LOSE
1) CAILE A,"@"
1) CAIA ;CHARACTER WINS
1) POPJ P, ;CHARACTER LOSES
1) CAIL A,"[" ;IF BETWEEN [ AND ` YOU LOSE
1) CAILE A,"a"-1;NOT SURE OF KEYBOARD CHR JUST BEFORE a
1) CAIA
1) POPJ P,
1) CAILE A,"z" ;DIRECT IF AFTER z.
1) POPJ P,
1) >;REPEAT 3
1) JSP D,(D) ;NOW THAT WE HAVE HAD 3 REAL CHRS, MUST FIND A 'WEIRD' CHR
1) CAIE A,(B)
1) POPJ P,
1) ESR3C1: AOS (P) ;IF YOU GOT THIS FAR YOU DESERVE TO SKIP
1) POPJ P,
1) .ILDB: PUSH P,B ↔ PUSH P,C
1) MOVE A,ESSBOS ;GET THE PTR TO VERY LINE USER POINTING AT, IS 1ST
1) MOVEM A,ESILBS ;PTR TO THE BEG OF LINE TO READ FROM
1) .ILDB0: MOVE A,ESILBS ;GET ADDRESS OF FIRST WORD OF LINE'S BLOCK
1) LDB B,[111100,,1(A)] ;THE THIRD WORD OF THIS LINE'S BLOCK SEZ # OF CHRS
1) MOVEM B,ESILRC ;SOSGE COUNTER OF N CHRS FOLLOWING BYTE PTR GOOD FOR
1) ADD A,[440700,,3] ;FOURTH WORD OF BLOCK IS TEXT, MAKE A BYTE PTR OF ADDRS
1) MOVEM A,ESILBP
1) .ILDB1: SOSGE ESILRC ;SKIP IF THERE ARE ANY CHRS LEFT TO READ HERE
1) JRST .ILD1 ;THIS LINE RAN OUT, GO GET A NEW ONE
1) ILDB A,ESILBP
1) POP P,C ↔ POP P,B
1) JSP D,1(D) ;SKIP RETURN
1) PUSH P,B ↔ PUSH P,C
1) JRST .ILDB1 ;WHEN HE ASKES FOR NEXT CHR, GO THRU THIS AGAIN
1) .ILD1: ;CHRS IN THIS LINE RAN OUT, CHECK OUT NEXT LINE
1) MOVE A,ESILBS ;GET THE ADDRESS OF LINE THAT JUST EXPIRED
1) HRRZ A,(A) ;GET SECOND WORD OF THIS BLOCK, WHICH PTS TO NEXT
1) CAIN A,BOTSTR ;IF IT POINTS TO BOTSTR, NO MORE LINES IN PAGE
1) JRST [ POP P,C ↔ POP P,B ↔ JSP D,(D) ] ;DIRECT RETURN, COMPLAIN
1) MOVEM A,ESILBS ;SAVE POINTER TO THIS NEW LINE
1) JRST .ILDB0 ;NOW MAKE UP BYTE POINTER, CHARACTER COUNT, AND DO IT
1)
1)
1) IMPURE
1) ESILRC: 0 ;.ILDB KEEPS # CHRS LEFT IN THIS LINE HERE
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 6,7
1) ESILBP: 0 ;KEEP BYTE PTR HERE WHILE IN A LINE
1) ESILBS: 0 ;POINTER TO LINE .ILDB IS READ HERE
1) PURE
1)
1) ESREC: ;STRAIGHT COPY TO TTY FROM ESSBP7 RETURN ON NULL, SKIP RETURN ON SPACE OR CR
1) PUSH P,A ↔ PUSH P,B ↔ PUSH P,C
1) SETOM B, ;GET OWN LINE NUMBER
1) GETLIN B
1) TLZ B,-1 ;FLUSH OTHER FLAGS
1) ESRE1A: ILDB C,ESSBP7 ;GET A CHARACTER
1) JUMPE C,CPOPJ3 ;DIRECT RETURN ON NULL
1) CAIE C,15 ;SKIP RETURN ON SPACE OR CR
1) CAIN C," "
1) JRST ESRE1B ;SKIP RETURN ON SPACE
1) PTWR1S B ;SEND THE CHARACTER
1) JRST 4,.
1) JRST ESRE1A ;MORE
1) ESRE1B: AOS -3(P) ;SKIP RETURN
1) CPOPJ3: POP P,C
1) POP P,B
1) POP P,A
1) POPJ P,
1) PTRP: ;SKIP RETURN IF PTRBIT IS OFF FOR ARRL, ALWAYS RETURN ADDRESS OF BLOCK IN A
1) MOVEI A,PAGE ;INITIALIZE LOOP RUNNING THRU LINES FOR ARRL
1) MOVE T,ARRL ;LOOP COUNT, WANT ARRL LINE'S BITS
1) PTRP1: MOVE A,(A) ;GET POINTER TO NEXT LINE RECORD FROM SECOND WORD
1) SOJG T,PTRP1 ;LOOP COUNT
1) ;A NOW POINTS AT THE CURRENT LINE
1) MOVE T,2(A) ;GET THE BITS FROM THIRD WORD OF BLOCK
1) TLNN T,PTRBIT ;SKIP IF THIS IS A REFERENCE LINE
1) AOS (P) ;SKIP RETURN, NOT A REFERENCE
1) POPJ P,
1) IMPURE
1) ESSBOS: 0 ;PTR TO CURRENT LINE GET STUCK HERE WHEN LOOKING FOR FILENAME
1) ESSBP7: 0 ;BYTE POINTER FOR READING REFERENCE LINE
1) ESARRL: 0 ;GETS POINTER TO LINE REFERENCE FOUND IN
1) PURE
1) >;IFN ESSAY
1) ;BEG, BEGSYS, BEGACT, BEGRPT, BEGDBG
*** E[CSP,SYS] *** PAGE 7 LINE 1
2) ;BEG, BEGSYS, BEGACT, BEGRPT, BEGDBG
******** E.20[CSP,SYS] **** PAGE 217 LINE 99
1) JUSTLA: ILDB C,A ;Eat spaces but not TABs for JUST and JFILL
1) CAIE C,40
1) POPJ P, ;Yes, into the middle of GETCH2 macro.
1) JRST JUSTLA ;Eat it up.
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 217,217
1) ;Dispatch table (BUF→BUF2) for JUST and JFILL
*** E[CSP,SYS] *** PAGE 217 LINE 99
2) JUSTLA: ILDB C,A ;Eat spaces and TABs for JUST and JFILL
2) CAIE C,40 ;New 1/3/75
2) CAIN C,11
2) JRST JUSTLA ;Eat it up.
2) POPJ P, ;Yes, into the middle of GETCH2 macro.
2) ;Dispatch table (BUF→BUF2) for JUST and JFILL
******** E.20[CSP,SYS] **** PAGE 221 LINE 41
1) ILDB C,A
*** E[CSP,SYS] *** PAGE 221 LINE 41
2) TLZ F,TF1 ;Set TFI to zero
2) MOVE T,PMAR
2) CAIE T,1 ;Eat TAB if PMAR≠1
2) JRST NXTLN3
2) ILDB C,A
******** E.20[CSP,SYS] **** PAGE 221 LINE 45
1) TLZ F,TF1 ;Set TFI to zero
1) JTAB: ILDB C,A ;Get next character
*** E[CSP,SYS] *** PAGE 221 LINE 49
2) JTAB: ILDB C,A ;Get next character
******** E.20[CSP,SYS] **** PAGE 221 LINE 54
1) ;We JRST here from NXTLN2
*** E[CSP,SYS] *** PAGE 221 LINE 56
2) NXTLN3: MOVEI C,40
2) IDPB C,D
2) AOBJN B,.+1
2) SOJG T,.-2
2) ILDB C,A
2) CAIE C,40
2) CAIN C,11
2) JRST .-3
2) POPJ P,
2) ;We JRST here from NXTLN2
******** E.20[CSP,SYS] **** PAGE 230 LINE 193
1) TYPDEC E
1) MOVE TT,E
1) IMULI TT,ZENT
1) CAME TT,ZINDEX
*** E[CSP,SYS] *** PAGE 230 LINE 193
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 230,230
2) MOVE TT,E
2) IMULI TT,ZENT
2) CAME TT,ZDATAR
2) JRST .+3
2) TYPCHR "H"
2) SKIPA
2) TYPDEC E
2) CAME TT,ZINDEX
******** E.20[CSP,SYS] **** PAGE 232 LINE 1
1) ;PDL, PATCH, PAT, ZVARS, LEGTAB
*** E[CSP,SYS] *** PAGE 232 LINE 1
2) ;********* BEG OF ESSAY DEFS *********
2) ESSAY,<
2) ESINIT: ;INIT ESSAY VARS, ETC.
2) POPJ P,
2) ESSREA: ;LOOK FOR A FILE NAME IN THE NEXT LINES OF TEXT, AND GO TO IT
2) MOVEI D,.ILDB ;INITIALIZE JSP AC FOR READING TEXT
2) MOVEM A,ESSBOS ;SAVE PTR TO CURRENT LINE FOR LOOKING FOR
2) ESRE1: JSP D,(D) ;PICK UP A CHR FROM LINE
2) JRST ESREFF ;END OF PAGE, FAILED TO FIND A SUITABLE FILE
2) CAIE A,"[" ;WE ARE LOOKING FOR WHAT COULD BE MIDDLE OF FILE NAME
2) JRST ESRE1 ;LOSE, TRY AGAIN
2) MOVEI B,"," ;SKIP RETURN IF THERE ARE 1-3 A-Z,a-z,0-9 CHARACTERS IN A
2) PUSHJ P,ESR3CH ;ROW, BROKEN WITH A COMMA
2) JRST ESRE1 ;LOSE, THIS GUY DOESN'T QUALIFY AS A PPN
2) MOVEI B,"]" ;SKIP RETURN IF YOU FIND ANOTHER 1-3 BROKEN BY CLOSE SQUARE
2) PUSHJ P,ESR3CH ;THE OTHER 1-3?
2) JRST ESRE1 ;CLOSE CALL...
2) PUSHJ P,ESBAKB ;BACK OVER THE FILE NAME
2) PUSHJ P,ESREC ;GIVE THIS FILE NAME ETC. TO TTY
2) JRST BEG0.1
2) JRST BEG0.1
2) ESBAKB: OUTSTR [ASCIZ /GOT A LIVE ONE./]
2) MOVE A,ESILBP ;GET THE BYTE POINTER WE WILL BE BACKING UP
2) ESBKB1: ADD A,[70000,,] ;GO ON TO THE PREVIOUS BYTE
2) CAIG A, ;DIRECT IF WE ARE READY TO MOVE ON TO PREVIOUS WORD
2) SUB A,[430000,,1];MAKE IT 010700,,<PREVIOUS WORD TO ONE WE WERE READING FROM>
2) CAMN A,ESOLBP ;DIRECT IF WE HAVE BACKED THE BYPE POINTER INTO BEGINING OF THIS LINE
2) ;ESOLBP HAS THE BYTE POINTER FOR BEG OF LINE AS CONSd UP BY .ILDB
2) JRST ESBKBE ;WE MUST BE THERE
2) LDB B,A ;GET THE CHARACTER
2) CAIE B," " ;SPACE
2) CAIN B,11 ;TAB
2) JRST ESBKBE ;BREAK ON
2) JRST ESBKB1 ;SOME MORE
2) ESBKBE: MOVEM A,ESILBP ;SAVE THIS AS CURRENT BYTE POITER
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 232,232
2) POPJ P,
2) ESREFF: JRST EPSIL4 ;FOR NOW ;COULDN'T FIND A FILE NAME ON THIS PAGE
2)
2) ESR3CH: ;SKIP RETURN IF THERE ARE 1 THRU 3 CHRS A-Z,a-z 0-9 STRAIGHT BROKEN BY (B)
2) REPEAT 3,<
2) JSP D,(D) ;CHR
2) POPJ P,
2) CAIN A,(B) ;THE ONLY WEIRD CHARACTER ALLOWED, CALLER SUPPLIED
2) JRST ESR3C1 ;DUN
2) CAIGE A,"0" ;IF YOU ARE BEHIND 0 YOU LOSE FOR SURE
2) POPJ P,
2) CAIL A,":" ;IF BETWEEN : AND @ YOU LOSE
2) CAILE A,"@"
2) CAIA ;CHARACTER WINS
2) POPJ P, ;CHARACTER LOSES
2) CAIL A,"[" ;IF BETWEEN [ AND ` YOU LOSE
2) CAILE A,"a"-1;NOT SURE OF KEYBOARD CHR JUST BEFORE a
2) CAIA
2) POPJ P,
2) CAILE A,"z" ;DIRECT IF AFTER z.
2) POPJ P,
2) >;REPEAT 3
2) JSP D,(D) ;NOW THAT WE HAVE HAD 3 REAL CHRS, MUST FIND A 'WEIRD' CHR
2) POPJ P, ;NO MORE PAGE
2) CAIE A,(B)
2) POPJ P,
2) ESR3C1: AOS (P) ;IF YOU GOT THIS FAR YOU DESERVE TO SKIP
2) POPJ P,
2) .ILDB: PUSH P,B ↔ PUSH P,C
2) MOVE A,ESSBOS ;GET THE PTR TO VERY LINE USER POINTING AT, IS 1ST
2) MOVEM A,ESILBS ;PTR TO THE BEG OF LINE TO READ FROM
2) .ILDB0: MOVE A,ESILBS ;GET ADDRESS OF FIRST WORD OF LINE'S BLOCK
2) LDB B,[111100,,1(A)] ;THE THIRD WORD OF THIS LINE'S BLOCK SEZ # OF CHRS
2) MOVEM B,ESILRC ;SOSGE COUNTER OF N CHRS FOLLOWING BYTE PTR GOOD FOR
2) ADD A,[440700,,3] ;FOURTH WORD OF BLOCK IS TEXT, MAKE A BYTE PTR OF ADDRS
2) MOVEM A,ESILBP
2) MOVEM A,ESOLBP ;THIS ONLY GETS CLOBBERED HERE. SO ESBAKB KNOWS WHERE BEG OF LINE IS
2) .ILDB1: SOSGE ESILRC ;SKIP IF THERE ARE ANY CHRS LEFT TO READ HERE
2) JRST .ILD1 ;THIS LINE RAN OUT, GO GET A NEW ONE
2) ILDB A,ESILBP
2) POP P,C ↔ POP P,B
2) JSP D,1(D) ;SKIP RETURN
2) PUSH P,B ↔ PUSH P,C
2) JRST .ILDB1 ;WHEN HE ASKES FOR NEXT CHR, GO THRU THIS AGAIN
2) .ILD1: ;CHRS IN THIS LINE RAN OUT, CHECK OUT NEXT LINE
2) MOVE A,ESILBS ;GET THE ADDRESS OF LINE THAT JUST EXPIRED
2) HRRZ A,(A) ;GET SECOND WORD OF THIS BLOCK, WHICH PTS TO NEXT
2) CAIN A,BOTSTR ;IF IT POINTS TO BOTSTR, NO MORE LINES IN PAGE
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 232,232
2) JRST .ILDNC ;NO MORE CHARACTERS, DIRECT RETURN. SUBSEQUENT CALLS DIRECT RETURN
2) MOVEM A,ESILBS ;SAVE POINTER TO THIS NEW LINE
2) JRST .ILDB0 ;NOW MAKE UP BYTE POINTER, CHARACTER COUNT, AND DO IT
2) .ILDNC: POP P,C
2) POP P,B
2) JSP D,(D) ;DIRECT RETURN INDICATING NO MORE CHARACTERS
2) JRST .-1 ;FOR SUBSEQUENT CALLS UNTIL .ILDB SUBR RESET.
2) ;ALLOWS END OF PAGE INFORAMATION TO PROPAGATE UP PDL, SORT OF
2)
2)
2) IMPURE
2) ESILRC: 0 ;.ILDB KEEPS # CHRS LEFT IN THIS LINE HERE
2) ESILBP: 0 ;KEEP BYTE PTR HERE WHILE IN A LINE
2) ESOLBP: 0 ;PUT EACH NEWLY CONSd UP ESILBP HERE FOR ESBAKB
2) ESILBS: 0 ;POINTER TO LINE .ILDB IS READ HERE
2) PURE
2)
2) ESREC: ;STRAIGHT COPY TO TTY FROM ESILBP RETURN ON NULL, SKIP RETURN ON SPACE OR CR
2) PUSH P,A ↔ PUSH P,B ↔ PUSH P,C
2) SETOM B, ;GET OWN LINE NUMBER
2) GETLIN B
2) TLZ B,-1 ;FLUSH OTHER FLAGS
2) ESRE1A: ILDB C,ESILBP ;GET A CHARACTER
2) JUMPE C,CPOPJ3 ;DIRECT RETURN ON NULL
2) CAIE C,15 ;SKIP RETURN ON SPACE OR CR
2) CAIN C," "
2) JRST ESRE1B ;SKIP RETURN ON SPACE
2) PTWR1S B ;SEND THE CHARACTER
2) JRST 4,.
2) JRST ESRE1A ;MORE
2) ESRE1B: AOS -3(P) ;SKIP RETURN
2) CPOPJ3: POP P,C
2) POP P,B
2) POP P,A
2) POPJ P,
2) PTRP: ;SKIP RETURN IF PTRBIT IS OFF FOR ARRL, ALWAYS RETURN ADDRESS OF BLOCK IN A
2) MOVEI A,PAGE ;INITIALIZE LOOP RUNNING THRU LINES FOR ARRL
2) MOVE T,ARRL ;LOOP COUNT, WANT ARRL LINE'S BITS
2) PTRP1: MOVE A,(A) ;GET POINTER TO NEXT LINE RECORD FROM SECOND WORD
2) SOJG T,PTRP1 ;LOOP COUNT
2) ;A NOW POINTS AT THE CURRENT LINE
2) MOVE T,2(A) ;GET THE BITS FROM THIRD WORD OF BLOCK
2) TLNN T,PTRBIT ;SKIP IF THIS IS A REFERENCE LINE
2) AOS (P) ;SKIP RETURN, NOT A REFERENCE
2) POPJ P,
2) IMPURE
2) ESSBOS: 0 ;PTR TO CURRENT LINE GET STUCK HERE WHEN LOOKING FOR FILENAME
2) ESARRL: 0 ;GETS POINTER TO LINE REFERENCE FOUND IN
1) E.20[CSP,SYS] vs. 2) E[CSP,SYS] SRCCOM 01-04-75 09:18 PAGES 232,232
2) PURE
2) >;IFN ESSAY
2) ;PDL, PATCH, PAT, ZVARS, LEGTAB